home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / MID / Util / All Locked Up!.cpt / All Locked Up! / stack_-1.xml < prev   
Extensible Markup Language  |  1991-10-03  |  3KB  |  33 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>12</cardCount>
  7.     <cardID>2817</cardID>
  8.     <listID>9394</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>--=====================================--===        All Locked Up!         ===--===                               ===--=== The Musician's Guide To SMPTE ===--===                               ===--===        by Joe Zobkiw          ===--===                               ===--=== ¬© 1989 by Q Software Design   ===--=====================================on animate     -- do animation sequenceunlock screenset cursor to invisiblehide menubarlock screenput "Society of Motion Picture & Television Engineers" into ¬¨line 2 of cd fld theTextplay swanLakeunlock screen with dissolvewait 1 secondlock screenput "Accurate Synchronization for" into line 4 of cd fld theTextput "Audio & Video" into line 5 of cd fld theTextrepeat until the sound = "done"end repeatplay "beethovenop58"unlock screen with dissolvewait 3 secondsvisual dissolve slowgo to cd "mainmenu"end animateon openstackglobal autoCompact,theThresholdif the version < 2.0 thenbeepanswer "Sorry, you need at least HyperCard version 2.0 " & ¬¨"to operate 'All Locked Up!'. Please see your authorized " & ¬¨"Apple dealer to get the latest version." with "Go Home"go homeend ifif the short name of this cd is "Intro" then animateset the userlevel to 5set the loc of msg to 19,301hide msgput the hilite of cd btn "auto compact" into autocompactput line 1 of cd fld "threshold" into theThresholdend openstackon closestackglobal autoCompact,theThresholdif autocompact = true thenif the freesize of this stack > (theThreshold * 1000) thenput "Compacting stack before closing..."domenu "compact stack"put empty into msghide msgend ifend ifend closestack</script>
  17.     <background id="2175" file="background_2175.xml" name="topics" />
  18.     <background id="2676" file="background_2676.xml" name="" />
  19.     <background id="4969" file="background_4969.xml" name="SMPTEAnimation" />
  20.     <card id="2817" file="card_2817.xml" marked="false" name="Intro" owner="2676" />
  21.     <card id="3239" file="card_3239.xml" marked="false" name="MainMenu" owner="2676" />
  22.     <card id="2444" file="card_2444.xml" marked="false" name="" owner="2175" />
  23.     <card id="3940" file="card_3940.xml" marked="false" name="" owner="2175" />
  24.     <card id="4189" file="card_4189.xml" marked="false" name="" owner="2175" />
  25.     <card id="5287" file="card_5287.xml" marked="false" name="" owner="2175" />
  26.     <card id="5575" file="card_5575.xml" marked="false" name="" owner="2175" />
  27.     <card id="5715" file="card_5715.xml" marked="false" name="" owner="2175" />
  28.     <card id="6504" file="card_6504.xml" marked="false" name="" owner="4969" />
  29.     <card id="6137" file="card_6137.xml" marked="false" name="" owner="4969" />
  30.     <card id="7559" file="card_7559.xml" marked="false" name="" owner="4969" />
  31.     <card id="7946" file="card_7946.xml" marked="false" name="" owner="4969" />
  32. </stack>
  33.